home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_1 / aminot21.lha / Install_AmiNote.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-10  |  3KB  |  79 lines
  1. /*
  2. $VER: AmiNote_Install v1.0 (10 Jul 95)
  3. */
  4. options results
  5. cls  = '0C0A'x
  6. bell = '07'x
  7. nl   = '0A'x
  8.  
  9. call open(Shell,'con:0/11/640/60/ AmiNote_Install v1.0  -  DFD Ltd.')
  10.  
  11. if ~show('L','rexxsupport.library') then do
  12.   if addlib('rexxsupport.library',0,-30,0) then nop
  13.   else do
  14.     call writeln Shell,cls||center('LIBS:rexxsupport.library is not available.',76)
  15.     exit 10
  16.   end
  17. end
  18. if ~exists('LIBS:apig.library') then do
  19.   call writeln Shell,cls||center('Copying libs/apig.library to LIBS:',76)
  20.   shell command('copy >nil: libs/apig.library LIBS: clone')
  21. end
  22. if ~show('L','apig.library') then do
  23.   if addlib('apig.library',0,-30,0) then nop
  24.   else do
  25.     call writeln Shell,cls||center('LIBS:apig.library is not available.',76)
  26.     exit 10
  27.   end
  28. end
  29. call SET_APIG_GLOBALS()
  30. freq = ALLOCFILEREQUEST()
  31. call writeln Shell,cls||center('Where do you want to install AmiNote?',76)
  32. install_path = REQUESTFILE(freq,0,0,'Where to install AmiNote',null(),null(),1,1,null(),0,22,320,177,null())
  33. call FREEFILEREQUEST(freq)
  34. if install_path = null() then signal Die
  35.  
  36. call writeln Shell,cls||center('Installing AmiNote',76)
  37. shell command('copy >nil: AmiNote 'install_path' clone')
  38. call writeln Shell,cls||center('Insalling Run_Script & Icon',76)
  39. shell command('copy >nil: Run_AmiNote#? 'install_path' clone')
  40.  
  41. if ~exists('S:AmiNote.config') then do
  42.   call writeln(Shell,cls||center('Installing AmiNote.config in S:',76))
  43.   shell command('copy >nil: s/AmiNote.config S: clone')
  44.   call writeln(Shell,bell||cls||center('You need to edit S:AmiNote.config to work',76))
  45.   call writeln(Shell,center('with YOUR bbs file library or AmiNet mirror setup.',76))
  46.   call Ret
  47. end
  48.  
  49. call makedir('ENV:DFD')
  50. call makedir('ENVARC:DFD')
  51.  
  52. if exists('ENV:AmiNote.prefs') then do
  53.   call writeln(Shell,cls||center('Moving your ENV:AmiNote.prefs to ENV:DFD/',76))
  54.   shell command('copy >nil: ENV:AmiNote.prefs ENV:DFD clone')
  55.   call writech(Shell,nl' Delete ENV:AmiNote.prefs (y/N) ? ')
  56.   response = readch(Shell,1)
  57.   if upper(response) = 'Y' then call delete('ENV:AmiNote.prefs')
  58.   if exists('ENVARC:AmiNote.prefs') then do
  59.     call writeln(Shell,cls||center('Moving your ENVARC:AmiNote.prefs to ENVARC:DFD/',76)
  60.     shell command('copy >nil: ENVARC:AmiNote.prefs ENVARC:DFD clone')
  61.     call writech(Shell,nl' Delete ENVARC:AmiNote.prefs (y/N) ? ')
  62.     response = readch(Shell,1)
  63.     if upper(response) = 'Y' then call delete('ENVARC:AmiNote.prefs')
  64.   end
  65. end
  66.  
  67. call writeln(Shell,cls||center('- Install to "'install_path'" Complete -',76))
  68. say 'AmiNote v2.1a was installed in >> 'install_path
  69. call Ret
  70.  
  71. Die:
  72. call close Shell
  73. exit
  74.  
  75. Ret:
  76. call writech(Shell,nl' Press Return ')
  77. call readch(Shell,1)
  78. return
  79.